home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / dtype / cdt_39_10.lha / cdt / source / RCS / classinit.asm,v < prev    next >
Text File  |  1995-06-04  |  3KB  |  141 lines
  1. head    39.1;
  2. access;
  3. symbols
  4.     V39_10:39.1
  5.     c3910:39.1
  6.     V39_9:39.1;
  7. locks; strict;
  8. comment    @;; @;
  9.  
  10.  
  11. 39.1
  12. date    95.05.10.14.58.15;    author StRuppert;    state Exp;
  13. branches;
  14. next    ;
  15.  
  16.  
  17. desc
  18. @initial
  19. @
  20.  
  21.  
  22. 39.1
  23. log
  24. @*** empty log    message    ***
  25. @
  26. text
  27. @;
  28. ; $PROJECT: c.datatype
  29. ;
  30. ; $VER: classinit.asm 39.1 (07.03.95)
  31. ;
  32. ; by
  33. ;
  34. ; Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  35. ;
  36. ; (C) Copyright 1995
  37. ; All Rights Reserved !
  38. ;
  39. ; $HISTORY:
  40. ;
  41. ; 07.03.95 : 039.001 : initial
  42. ;
  43.  
  44. ;---------------------------------------------------------------------------
  45.  
  46.         INCLUDE "exec/types.i"
  47.         INCLUDE "exec/libraries.i"
  48.         INCLUDE "exec/lists.i"
  49.         INCLUDE "exec/alerts.i"
  50.         INCLUDE "exec/initializers.i"
  51.         INCLUDE "exec/resident.i"
  52.         INCLUDE "libraries/dos.i"
  53.  
  54.         INCLUDE "classbase.i"
  55.  
  56. ;---------------------------------------------------------------------------
  57.  
  58.         XREF    _LibInit
  59.         XREF    _LibOpen
  60.         XREF    _LibClose
  61.         XREF    _LibExpunge
  62.  
  63.         XREF    ENDCODE
  64.  
  65.         SECTION CODE
  66.  
  67. ;---------------------------------------------------------------------------
  68.  
  69.         XDEF    LibReserved
  70.  
  71. ;---------------------------------------------------------------------------
  72.  
  73. ; First executable location, must return an error to the caller
  74. Start:
  75.         moveq   #-1,d0
  76.         rts
  77.  
  78. ;-----------------------------------------------------------------------
  79.  
  80. ROMTAG:
  81.         DC.W    RTC_MATCHWORD           ; UWORD RT_MATCHWORD
  82.         DC.L    ROMTAG                  ; APTR  RT_MATCHTAG
  83.         DC.L    ENDCODE                 ; APTR  RT_ENDSKIP
  84.         DC.B    RTF_AUTOINIT            ; UBYTE RT_FLAGS
  85.         DC.B    VERSION                 ; UBYTE RT_VERSION
  86.         DC.B    NT_LIBRARY              ; UBYTE RT_TYPE
  87.         DC.B    0                       ; BYTE  RT_PRI
  88.         DC.L    LibName                 ; APTR  RT_NAME
  89.         DC.L    LibId                   ; APTR  RT_IDSTRING
  90.         DC.L    LibInitTable            ; APTR  RT_INIT
  91.  
  92. LibName DC.B    'c.datatype',0
  93. LibId   VSTRING
  94.  
  95.         CNOP    0,4
  96.  
  97. LibInitTable:
  98.         DC.L    ClassBase_SIZEOF
  99.         DC.L    LibFuncTable
  100.         DC.L    LibDataTable
  101.         DC.L    _LibInit
  102.  
  103. V_DEF   MACRO
  104.         DC.W    \1+(*-LibFuncTable)
  105.         ENDM
  106.  
  107. LibFuncTable:
  108.         DC.W    -1
  109.         V_DEF   _LibOpen
  110.         V_DEF   _LibClose
  111.         V_DEF   _LibExpunge
  112.         V_DEF   LibReserved
  113.  
  114. ;       set ENGINE to your Obtain#?Engine function
  115.         V_DEF   ENGINE
  116.  
  117.         DC.W   -1
  118.  
  119. LibDataTable:
  120.         INITBYTE   LN_TYPE,NT_LIBRARY
  121.         INITLONG   LN_NAME,LibName
  122.         INITBYTE   LIB_FLAGS,(LIBF_SUMUSED!LIBF_CHANGED)
  123.         INITWORD   LIB_VERSION,VERSION
  124.         INITWORD   LIB_REVISION,REVISION
  125.         INITLONG   LIB_IDSTRING,LibId
  126.         DC.W       0
  127.  
  128.         CNOP    0,4
  129.  
  130. ;-----------------------------------------------------------------------
  131.  
  132. LibReserved:
  133.         moveq   #0,d0
  134.         rts
  135.  
  136. ;-----------------------------------------------------------------------
  137.  
  138.         END
  139.  
  140. @
  141.